home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol402 / polyops.arc / PVAL.FOR < prev    next >
Encoding:
Text File  |  1985-11-29  |  1012 b   |  41 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PVAL
  5. C
  6. C        PURPOSE
  7. C           EVALUATE A POLYNOMIAL FOR A GIVEN VALUE OF THE VARIABLE
  8. C
  9. C        USAGE
  10. C           CALL PVAL(RES,ARG,X,IDIMX)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           RES    - RESULTANT VALUE OF POLYNOMIAL
  14. C           ARG    - GIVEN VALUE OF THE VARIABLE
  15. C           X      - VECTOR OF COEFFICIENTS, ORDERED FROM SMALLEST TO
  16. C                    LARGEST POWER
  17. C           IDIMX  - DIMENSION OF X
  18. C
  19. C        REMARKS
  20. C           NONE
  21. C
  22. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  23. C           NONE
  24. C
  25. C        METHOD
  26. C           EVALUATION IS DONE BY MEANS OF NESTED MULTIPLICATION
  27. C
  28. C     ..................................................................
  29. C
  30.       SUBROUTINE PVAL(RES,ARG,X,IDIMX)
  31.       DIMENSION X(1)
  32. C
  33.       RES=0.
  34.       J=IDIMX
  35.     1 IF(J)3,3,2
  36.     2 RES=RES*ARG+X(J)
  37.       J=J-1
  38.       GO TO 1
  39.     3 RETURN
  40.       END
  41.